home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / prelude / Radian.p < prev    next >
Text File  |  2000-04-24  |  1KB  |  41 lines
  1. pTempVar <- <primitive 110 8 >
  2. <primitive 112 pTempVar 1  " printString " \
  3.   #( #[ 16r10 16r0A 16r10 16r30 16r0B 16r11 16rF3 16rF5] \
  4.     #( ' radians'  )) >
  5.  
  6. <primitive 112 pTempVar 2  " asFloat " \
  7.   #( #[ 16r10 16rF3 16rF5] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " tan " \
  11.   #( #[ 16r10 16rFA 16r01 16r51 16r10 16rFA 16r01 16r52 16rBE 16rF3 16rF5 \
  12.        ] \
  13.     #(  )) >
  14.  
  15. <primitive 112 pTempVar 4  " cos " \
  16.   #( #[ 16r10 16rFA 16r01 16r52 16rF3 16rF5] \
  17.     #(  )) >
  18.  
  19. <primitive 112 pTempVar 5  " sin " \
  20.   #( #[ 16r10 16rFA 16r01 16r51 16rF3 16rF5] \
  21.     #(  )) >
  22.  
  23. <primitive 112 pTempVar 6  " = " \
  24.   #( #[ 16r10 16r21 16rAF 16rC9 16rF3 16rF5] \
  25.     #(  )) >
  26.  
  27. <primitive 112 pTempVar 7  " < " \
  28.   #( #[ 16r10 16r21 16rAF 16rC7 16rF3 16rF5] \
  29.     #(  )) >
  30.  
  31. <primitive 112 pTempVar 8  " new: " \
  32.   #( #[ 16r21 16rAF 16rFA 16r01 16r50 16r60 16rF5] \
  33.     #(  )) >
  34.  
  35. <primitive 98 #Radian \
  36.   <primitive 97 #Radian #Magnitude #AmigaTalk:General/Radian.st \
  37.    #(  #value ) \
  38.    #( #printString #asFloat #tan #cos #sin #= #< #new:  ) \
  39.   pTempVar 2 3 >>
  40.  
  41.